﻿Public Class GPSPoint
    Dim longitude As Double
    Dim latitude As Double
    Dim altitude As Double

    Public Sub New()
        longitude = 0
        latitude = 0
        altitude = 0
    End Sub

    Public Sub New(ByVal lo As Double, ByVal la As Double, ByVal al As Double)
        longitude = lo
        latitude = la
        altitude = al
    End Sub
    Public Sub setLongitude(ByVal l As Double)
        longitude = l
    End Sub

    Public Sub setLatitude(ByVal l As Double)
        latitude = l
    End Sub

    Public Sub setAltitude(ByVal a As Double)
        altitude = a
    End Sub

End Class
